unit PostFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AppUtils, BaseForm, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, dxSkinsCore, dxSkinOffice2010Blue, dxSkinscxPCPainter,
  cxPropertiesStore, dxLayoutLookAndFeels, dxLayoutContainer, dxLayoutControl,
  dxSkinOffice2013White, cxStyles, cxCustomData, cxFilter, cxData,
  cxDataStorage, cxEdit, cxNavigator, Data.DB, cxDBData, cxGridLevel, cxClasses,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxGrid, FIBDataSet, pFIBDataSet, cxTL, cxMaskEdit, cxCheckBox,
  cxTLdxBarBuiltInMenu, cxInplaceContainer, cxDBTL, cxTLData;

type
  TPostForm = class(TDezForm)
    grp1: TdxLayoutGroup;
    lc1: TdxLayoutControl;
    lf1: TdxLayoutLookAndFeelList;
    lcf1: TdxLayoutCxLookAndFeel;
    prop1: TcxPropertiesStore;
    grplc1Group1: TdxLayoutGroup;
    grplc1Group2: TdxLayoutGroup;
    split1: TdxLayoutSplitterItem;
    v1: TcxGridDBTableView;
    l1: TcxGridLevel;
    grd1: TcxGrid;
    itmlc1Item1: TdxLayoutItem;
    ds_WORKERSTATE: TpFIBDataSet;
    src_WORKERSTATE: TDataSource;
    clv1CODE: TcxGridDBColumn;
    clv1NAME: TcxGridDBColumn;
    lst1: TcxDBTreeList;
    itmlc1Item11: TdxLayoutItem;
    ds_GETMENURIGHT: TpFIBDataSet;
    src_GETMENURIGHT: TDataSource;
    cllst1ID: TcxDBTreeListColumn;
    cllst1PARENTID: TcxDBTreeListColumn;
    cllst1TEXT: TcxDBTreeListColumn;
    cllst1ISADD: TcxDBTreeListColumn;
    cllst1ISEDIT: TcxDBTreeListColumn;
    cllst1ISDELETE: TcxDBTreeListColumn;
    cllst1CODE: TcxDBTreeListColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PostForm: TPostForm;

implementation

uses cmDBUnit;

{$R *.dfm}


procedure TPostForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;

procedure TPostForm.FormCreate(Sender: TObject);
begin
  LoadForm(prop1,Self.Name);
end;

initialization
 RegisterClass(TPostForm);
end.
